home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  444 b   |  26 lines
  1. 10 ;RD TRK 3
  2. 20 PRGDSK JSR LIST; PUT DISK PROGRAM AT $0300
  3. 30 LDY #$00; IN THE 1541'S RAM
  4. 40 LP18 LDA MW3,Y
  5. 50 JSR OUT
  6. 60 INY
  7. 70 CPY #$06
  8. 80 BNE LP18
  9. 90 LDY #$00
  10. 100 LP19 LDA PROG,X
  11. 110 JSR OUT
  12. 130 INY
  13. 140 INX
  14. 150 CPY #$20
  15. 160 BNE LP19
  16. 170 JSR UNLIS
  17. 180 STY MW3+3; REPLACE LO BYTE M-W ADDRESS
  18. 190 CPX #$40
  19. 200 BEQ ERR4
  20. 210 JMP PRGDSK
  21. 220 ERR4 JSR UNLIS
  22. 225 LDA #$00
  23. 226 STA MW3+3; RESET LO BYTE M-W ADDRESS
  24. 230 RTS
  25. 640 .FILE RD TRK 4
  26.